Chip 2004 September (Special)/Chip-Special_2004-09_Digitalni-Hudba.bin/hudba/earmaster/earpro4setup.exe/{app}/ear40.exe/0/RCDATA/TTUTORDEFINE/TTUTORDEFINE.txt

Text File | 2003-04-03 | 17KB | 532 lines

object TutorDefine: TTutorDefine
  Left = 612
  Top = 192
  Width = 323
  Height = 500
  HelpContext = 230
  BorderIcons = [biSystemMenu]
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -15
  Font.Name = 'Arial'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = True
  Scaled = False
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 17
  object Tutorbox7: TListBox
    Left = 0
    Top = 61
    Width = 315
    Height = 389
    HelpContext = 230
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 37
    PopupMenu = PopupMenu1
    Style = lbOwnerDrawFixed
    TabOrder = 7
    OnClick = Tutorbox9Click
    OnDblClick = Tutorbox1DblClick
    OnDragDrop = Tutorbox1DragDrop
    OnDragOver = Tutorbox1DragOver
    OnDrawItem = Tutorbox1DrawItem
    OnKeyDown = Tutorbox9KeyDown
  end
  object Tutorbox8: TListBox
    Left = 0
    Top = 61
    Width = 315
    Height = 389
    HelpContext = 230
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 37
    PopupMenu = PopupMenu1
    Style = lbOwnerDrawFixed
    TabOrder = 8
    OnClick = Tutorbox9Click
    OnDblClick = Tutorbox1DblClick
    OnDragDrop = Tutorbox1DragDrop
    OnDragOver = Tutorbox1DragOver
    OnDrawItem = Tutorbox1DrawItem
    OnKeyDown = Tutorbox9KeyDown
  end
  object Tutorbox9: TListBox
    Left = 0
    Top = 61
    Width = 315
    Height = 389
    HelpContext = 230
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 37
    PopupMenu = PopupMenu1
    Style = lbOwnerDrawFixed
    TabOrder = 9
    OnClick = Tutorbox9Click
    OnDblClick = Tutorbox1DblClick
    OnDragDrop = Tutorbox1DragDrop
    OnDragOver = Tutorbox1DragOver
    OnDrawItem = Tutorbox1DrawItem
    OnKeyDown = Tutorbox9KeyDown
  end
  object TutorBox10: TListBox
    Left = 0
    Top = 61
    Width = 315
    Height = 389
    HelpContext = 230
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 37
    PopupMenu = PopupMenu1
    Style = lbOwnerDrawFixed
    TabOrder = 10
    OnClick = Tutorbox9Click
    OnDblClick = Tutorbox1DblClick
    OnDragDrop = Tutorbox1DragDrop
    OnDragOver = Tutorbox1DragOver
    OnDrawItem = Tutorbox1DrawItem
    OnKeyDown = Tutorbox9KeyDown
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 315
    Height = 61
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Bevel2: TBevel
      Left = 0
      Top = 37
      Width = 315
      Height = 5
      Align = alBottom
      Shape = bsTopLine
    end
    object SpeedButton4: TSpeedButton
      Left = 7
      Top = 6
      Width = 28
      Height = 28
      Hint = 'New tutor'
      Flat = True
      Glyph.Data = {
        06030000424D060300000000000036000000280000000F0000000F0000000100
        180000000000D002000000000000000000000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
        0000000000000000000000000000000000000000000000000000000000000000
        00BFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF000000BFBFBFBFBFBF
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00BFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF000000BFBFBFBFBFBF
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00BFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF000000BFBFBFBFBFBF
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00BFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000BFBFBFBFBFBF000000BFBFBFBFBFBF
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00BFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF000000000000000000000000BFBFBFBFBFBF000000BFBFBFBFBFBF
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF000000FFFFFF000000BFBF
        BFBFBFBFBFBFBF000000BFBFBFBFBFBF000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFF000000000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBF
        000000000000000000000000000000000000000000000000BFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBF000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton4Click
    end
    object SpeedButton2: TSpeedButton
      Left = 34
      Top = 6
      Width = 28
      Height = 28
      Hint = 'Open tutor'
      Flat = True
      Glyph.Data = {
        36030000424D3603000000000000360000002800000010000000100000000100
        1800000000000003000000000000000000000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000
        000000000000000000000000000000000000000000000000000000BFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBF000000000000007F7F007F7F007F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F000000BFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF
        000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F0000
        00BFBFBFBFBFBFBFBFBF000000FFFFFF00FFFF000000007F7F007F7F007F7F00
        7F7F007F7F007F7F007F7F007F7F007F7F000000BFBFBFBFBFBF00000000FFFF
        FFFFFF00FFFF000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
        7F007F7F000000BFBFBF000000FFFFFF00FFFFFFFFFF00FFFF00000000000000
        000000000000000000000000000000000000000000000000000000000000FFFF
        FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFF000000BFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBF000000FFFFFF00FFFFFFFFFF00FFFFFFFFFF00FFFFFF
        FFFF00FFFFFFFFFF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF00000000FFFF
        FFFFFF00FFFF000000000000000000000000000000000000000000BFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF000000000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBF000000BFBFBFBFBFBFBFBFBF000000BFBFBF000000BFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000BFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton2Click
    end
    object SpeedButton3: TSpeedButton
      Left = 61
      Top = 6
      Width = 28
      Height = 28
      Hint = 'Save tutor'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333FFFFFFFFFFFFF33000077777770033377777777777773F000007888888
        00037F3337F3FF37F37F00000780088800037F3337F77F37F37F000007800888
        00037F3337F77FF7F37F00000788888800037F3337777777337F000000000000
        00037F3FFFFFFFFFFF7F00000000000000037F77777777777F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF00037F7F333333337F7F000FFFFFFFFF
        00037F7F333333337F7F000FFFFFFFFF07037F7F33333333777F000FFFFFFFFF
        0003737FFFFFFFFF7F7330099999999900333777777777777733}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton3Click
      OnMouseDown = SpeedButton6MouseDown
    end
    object Label1: TLabel
      Left = 0
      Top = 42
      Width = 315
      Height = 19
      Align = alBottom
      AutoSize = False
      OnClick = Speed1Click
    end
    object SpeedButton1: TSpeedButton
      Left = 281
      Top = 6
      Width = 30
      Height = 28
      Hint = 'HELP!!!'
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        0400000000000001000000000000000000001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
        33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
        FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
        FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
        FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
        FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
        FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
        3333333773FFFF77333333333FBFBF3333333333377777333333}
      NumGlyphs = 2
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object Bevel1: TBevel
      Left = 0
      Top = 0
      Width = 315
      Height = 9
      Align = alTop
      Shape = bsTopLine
    end
    object SpeedButton5: TSpeedButton
      Left = 112
      Top = 6
      Width = 28
      Height = 28
      Flat = True
      Glyph.Data = {
        32010000424D320100000000000036000000280000000B000000070000000100
        180000000000FC00000000000000000000000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000BFBFBF000000000000000000000000000000000000000000000000000000
        BFBFBF000000BFBFBFBFBFBF0000000000000000000000000000000000000000
        00BFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBF00000000000000000000000000
        0000BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBF000000000000
        000000BFBFBFBFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBF
        BF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton5Click
    end
    object SpeedButton6: TSpeedButton
      Left = 139
      Top = 6
      Width = 28
      Height = 28
      Flat = True
      Glyph.Data = {
        0E010000424D0E0100000000000036000000280000000B000000060000000100
        180000000000D800000000000000000000000000000000000000BFBFBFBFBFBF
        BFBFBFBFBFBFBFBFBF000000BFBFBFBFBFBFBFBFBFBFBFBFBFBFBF000000BFBF
        BFBFBFBFBFBFBFBFBFBF000000000000000000BFBFBFBFBFBFBFBFBFBFBFBF00
        0000BFBFBFBFBFBFBFBFBF000000000000000000000000000000BFBFBFBFBFBF
        BFBFBF000000BFBFBFBFBFBF0000000000000000000000000000000000000000
        00BFBFBFBFBFBF000000BFBFBF00000000000000000000000000000000000000
        0000000000000000BFBFBF000000000000000000000000000000000000000000
        000000000000000000000000000000000000}
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton6Click
    end
    object Image1: TImage
      Left = 210
      Top = 10
      Width = 15
      Height = 15
      Picture.Data = {<image000.bmp>}
      Visible = False
    end
  end
  object Tutorbox1: TListBox
    Left = 0
    Top = 61
    Width = 315
    Height = 389
    HelpContext = 230
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 37
    PopupMenu = PopupMenu1
    Style = lbOwnerDrawFixed
    TabOrder = 1
    OnClick = Tutorbox9Click
    OnDblClick = Tutorbox1DblClick
    OnDragDrop = Tutorbox1DragDrop
    OnDragOver = Tutorbox1DragOver
    OnDrawItem = Tutorbox1DrawItem
    OnKeyDown = Tutorbox9KeyDown
  end
  object Tutorbox2: TListBox
    Left = 0
    Top = 61
    Width = 315
    Height = 389
    HelpContext = 230
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 37
    PopupMenu = PopupMenu1
    Style = lbOwnerDrawFixed
    TabOrder = 2
    OnClick = Tutorbox9Click
    OnDblClick = Tutorbox1DblClick
    OnDragDrop = Tutorbox1DragDrop
    OnDragOver = Tutorbox1DragOver
    OnDrawItem = Tutorbox1DrawItem
    OnKeyDown = Tutorbox9KeyDown
  end
  object Tutorbox3: TListBox
    Left = 0
    Top = 61
    Width = 315
    Height = 389
    HelpContext = 230
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 37
    PopupMenu = PopupMenu1
    Style = lbOwnerDrawFixed
    TabOrder = 3
    OnClick = Tutorbox9Click
    OnDblClick = Tutorbox1DblClick
    OnDragDrop = Tutorbox1DragDrop
    OnDragOver = Tutorbox1DragOver
    OnDrawItem = Tutorbox1DrawItem
    OnKeyDown = Tutorbox9KeyDown
  end
  object Tutorbox4: TListBox
    Left = 0
    Top = 61
    Width = 315
    Height = 389
    HelpContext = 230
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 37
    PopupMenu = PopupMenu1
    Style = lbOwnerDrawFixed
    TabOrder = 4
    OnClick = Tutorbox9Click
    OnDblClick = Tutorbox1DblClick
    OnDragDrop = Tutorbox1DragDrop
    OnDragOver = Tutorbox1DragOver
    OnDrawItem = Tutorbox1DrawItem
    OnKeyDown = Tutorbox9KeyDown
  end
  object Tutorbox5: TListBox
    Left = 0
    Top = 61
    Width = 315
    Height = 389
    HelpContext = 230
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 37
    PopupMenu = PopupMenu1
    Style = lbOwnerDrawFixed
    TabOrder = 5
    OnClick = Tutorbox9Click
    OnDblClick = Tutorbox1DblClick
    OnDragDrop = Tutorbox1DragDrop
    OnDragOver = Tutorbox1DragOver
    OnDrawItem = Tutorbox1DrawItem
    OnKeyDown = Tutorbox9KeyDown
  end
  object Tutorbox6: TListBox
    Left = 0
    Top = 61
    Width = 315
    Height = 389
    HelpContext = 230
    Align = alClient
    DragMode = dmAutomatic
    ItemHeight = 37
    PopupMenu = PopupMenu1
    Style = lbOwnerDrawFixed
    TabOrder = 6
    OnClick = Tutorbox9Click
    OnDblClick = Tutorbox1DblClick
    OnDragDrop = Tutorbox1DragDrop
    OnDragOver = Tutorbox1DragOver
    OnDrawItem = Tutorbox1DrawItem
    OnKeyDown = Tutorbox9KeyDown
  end
  object MainMenu1: TMainMenu
    Left = 178
    Top = 66
    object File1: TMenuItem
      Caption = 'File'
      GroupIndex = 1
      object Newtutor1: TMenuItem
        Caption = 'New...'
        OnClick = SpeedButton4Click
      end
      object Loadtutor1: TMenuItem
        Caption = 'Open...'
        OnClick = SpeedButton2Click
      end
      object Savetutor1: TMenuItem
        Caption = 'Save...'
        OnClick = SpeedButton3Click
      end
      object Insert1: TMenuItem
        Caption = 'Insert...'
        OnClick = Insert1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Tutorproperties1: TMenuItem
        Caption = 'Tutor properties...'
        OnClick = Speed1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'Close'
        OnClick = Exit1Click
      end
    end
    object Step1: TMenuItem
      Caption = 'Step'
      GroupIndex = 1
      OnClick = PopupMenu1Popup
      object Getsetupfromexercisesetup2: TMenuItem
        Caption = 'Get setup from exercise setup'
        OnClick = Getsetupfromexercisesetup2Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object New1: TMenuItem
        Caption = 'New...'
        OnClick = New1Click
      end
      object Delete1: TMenuItem
        Caption = 'Delete'
        OnClick = Deletestep1Click
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object Properties2: TMenuItem
        Caption = 'Properties...'
        OnClick = Tutorbox1DblClick
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      GroupIndex = 1
      object Contexthelp1: TMenuItem
        Caption = 'Context help'
        OnClick = SpeedButton1Click
      end
    end
  end
  object SaveDialog1: TSaveDialog
    HelpContext = 170
    DefaultExt = 'tut'
    Filter = 'EarMaster tutor|*.TUT'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofShowHelp, ofPathMustExist]
    Title = 'Save tutor'
    Left = 214
    Top = 66
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 146
    Top = 66
    object SetupfromExSetup1: TMenuItem
      Caption = 'Get setup from exercise setup'
      OnClick = Getsetupfromexercisesetup2Click
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object Newstep1: TMenuItem
      Caption = 'New step'
      OnClick = New1Click
    end
    object Deletestep1: TMenuItem
      Caption = 'Delete step'
      OnClick = Deletestep1Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object Properties1: TMenuItem
      Caption = 'Properties...'
      OnClick = Tutorbox1DblClick
    end
  end
end